home *** CD-ROM | disk | FTP | other *** search
/ Apple AUX 3.0 / Apple AUX 3.0.iso / System Folder / Apple Menu Items / Scrapbook / Scrapbook.rsrc / DRVR_12__Scrapbook.txt < prev    next >
Text File  |  1991-04-25  |  82KB  |  1,481 lines
  1. # name: 
  2. # flags: 0x1400 (ENABLE_CONTROL, NEED_GOODBYE)
  3. # delay: 65535
  4. # event mask: 0x016A
  5. # menu id: 0
  6. # open label: 0022
  7. # prime label: 0230
  8. # control label: 0234
  9. # status label: 0230
  10. # close label: 01F8
  11. 00000000  0120                     btst       -[A0], D0
  12. 00000002  0337 2E30                btst       [A7 + D2 * 8 + 0x30], D1
  13. fn00000006:
  14. 00000006  9EFC 0040                sub.w      A7, 0x40 /* '@' */
  15. 0000000A  204F                     movea.l    A0, A7
  16. 0000000C  3140 0016                move.w     [A0 + 0x16], D0
  17. 00000010  42A8 0012                clr.l      [A0 + 0x12]
  18. 00000014  A015                     syscall    SetVol/PBHSetVol/HSetVol
  19. 00000016  A014                     syscall    GetVol/PBHGetVol/HGetVol
  20. 00000018  3028 0016                move.w     D0, [A0 + 0x16]
  21. 0000001C  4FEF 0040                lea.l      A7, [A7 + 0x40]
  22. 00000020  4E75                     rts
  23. open:
  24. 00000022  48E7 0018                movem.l    -[A7], A3,A4
  25. 00000026  2F38 0AF2                move.l     -[A7], [0x00000AF2 /* ResErrProc */]
  26. 0000002A  42B8 0AF2                clr.l      [0x00000AF2 /* ResErrProc */]
  27. 0000002E  2849                     movea.l    A4, A1
  28. 00000030  554F                     subq.w     A7, 2
  29. 00000032  A994                     syscall    CurResFile
  30. 00000034  4AAC 001E                tst.l      [A4 + 0x1E]
  31. 00000038  6600 0106                bne        +0x108 /* 00000140 */
  32. 0000003C  7046                     moveq.l    D0, 0x46
  33. 0000003E  E540                     asl        D0.w, 2
  34. 00000040  A322                     syscall    NewHandleClear, flags=3
  35. 00000042  2648                     movea.l    A3, A0
  36. 00000044  2948 0014                move.l     [A4 + 0x14], A0
  37. 00000048  7000                     moveq.l    D0, 0x00
  38. 0000004A  61BA                     bsr        -0x44 /* 00000006 */
  39. 0000004C  3F00                     move.w     -[A7], D0
  40. 0000004E  3038 0210                move.w     D0, [0x00000210 /* BootDrive */]
  41. 00000052  61B2                     bsr        -0x4C /* 00000006 */
  42. 00000054  6100 013A                bsr        +0x13C /* 00000190 */
  43. 00000058  6A58                     bpl        +0x5A /* 000000B2 */
  44. 0000005A  7003                     moveq.l    D0, 0x03
  45. 0000005C  6100 07D8                bsr        +0x7DA /* 00000836 */
  46. 00000060  2F08                     move.l     -[A7], A0
  47. 00000062  2F10                     move.l     -[A7], [A0]
  48. 00000064  D197                     add.l      [A7], D0
  49. 00000066  A9B1                     syscall    CreateResFile
  50. 00000068  4A78 0A60                tst.w      [0x00000A60 /* ResErr */]
  51. 0000006C  6600 0102                bne        +0x104 /* 00000170 */
  52. 00000070  7013                     moveq.l    D0, 0x13
  53. label00000072:
  54. 00000072  42A7                     clr.l      -[A7]
  55. 00000074  51C8 FFFC                dbf        D0, -0x6 /* 00000072 */
  56. 00000078  7003                     moveq.l    D0, 0x03
  57. 0000007A  6100 07BA                bsr        +0x7BC /* 00000836 */
  58. 0000007E  2050                     movea.l    A0, [A0]
  59. 00000080  D1C0                     add.l      A0, D0
  60. 00000082  2F48 0012                move.l     [A7 + 0x12], A0
  61. 00000086  204F                     movea.l    A0, A7
  62. 00000088  A00C                     syscall    GetFileInfo/PBHGetFInfo/HGetFileInfo
  63. 0000008A  217C 7363 626B 0020      move.l     [A0 + 0x20], 0x7363626B /* 'scbk' */
  64. 00000092  217C 7363 626B 0024      move.l     [A0 + 0x24], 0x7363626B /* 'scbk' */
  65. 0000009A  A00D                     syscall    SetFileInfo/PBHSetFInfo/HSetFileInfo
  66. 0000009C  4FEF 0050                lea.l      A7, [A7 + 0x50]
  67. 000000A0  A9A3                     syscall    ReleaseResource
  68. 000000A2  6100 00EC                bsr        +0xEE /* 00000190 */
  69. 000000A6  6D00 00CA                blt        +0xCC /* 00000172 */
  70. 000000AA  6100 0098                bsr        +0x9A /* 00000144 */
  71. 000000AE  6100 085E                bsr        +0x860 /* 0000090E */
  72. label000000B2:
  73. 000000B2  301F                     move.w     D0, [A7]+
  74. 000000B4  6100 FF50                bsr        -0xAE /* 00000006 */
  75. 000000B8  6100 00F6                bsr        +0xF8 /* 000001B0 */
  76. 000000BC  6100 08A4                bsr        +0x8A6 /* 00000962 */
  77. 000000C0  A007                     syscall    GetVolInfo/PBHGetVInfo/HGetVInfo
  78. 000000C2  2053                     movea.l    A0, [A3]
  79. 000000C4  082F 0007 0027           btst.b     [A7 + 0x27], 0x7
  80. 000000CA  56E8 000B                sne        [A0 + 0xB]
  81. 000000CE  4FEF 0040                lea.l      A7, [A7 + 0x40]
  82. 000000D2  7000                     moveq.l    D0, 0x00
  83. 000000D4  6100 0794                bsr        +0x796 /* 0000086A */
  84. 000000D8  3E00                     move.w     D7, D0
  85. 000000DA  2F3C 5749 4E44           move.l     -[A7], 0x57494E44 /* 'WIND' */
  86. 000000E0  3F07                     move.w     -[A7], D7
  87. 000000E2  6100 0B6C                bsr        +0xB6E /* 00000C50 */
  88. 000000E6  594F                     subq.w     A7, 4
  89. 000000E8  3F07                     move.w     -[A7], D7
  90. 000000EA  42A7                     clr.l      -[A7]
  91. 000000EC  2F38 0A06                move.l     -[A7], [0x00000A06 /* MinusOne */]
  92. 000000F0  0838 0006 028E           btst.b     [0x0000028E /* ROM85 */], 0x6
  93. 000000F6  6704                     beq        +0x6 /* 000000FC */
  94. 000000F8  A9BD                     syscall    GetNewWindow
  95. 000000FA  6002                     bra        +0x4 /* 000000FE */
  96. label000000FC:
  97. 000000FC  AA46                     syscall    GetNewCWindow
  98. label000000FE:
  99. 000000FE  205F                     movea.l    A0, [A7]+
  100. 00000100  2948 001E                move.l     [A4 + 0x1E], A0
  101. 00000104  316C 0018 006C           move.w     [A0 + 0x6C], [A4 + 0x18]
  102. 0000010A  317C 0001 0044           move.w     [A0 + 0x44], 0x1
  103. 00000110  317C 000C 004A           move.w     [A0 + 0x4A], 0xC
  104. 00000116  6100 028C                bsr        +0x28E /* 000003A4 */
  105. 0000011A  2053                     movea.l    A0, [A3]
  106. 0000011C  2F28 0002                move.l     -[A7], [A0 + 0x2]
  107. 00000120  594F                     subq.w     A7, 4
  108. 00000122  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  109. 00000126  A917                     syscall    GetWRefCon
  110. 00000128  544F                     addq.w     A7, 2
  111. 0000012A  A963                     syscall    SetControlValue/SetCtlValue
  112. 0000012C  2053                     movea.l    A0, [A3]
  113. 0000012E  0C68 0002 0008           cmpi.w     [A0 + 0x8], 0x2
  114. 00000134  6C0A                     bge        +0xC /* 00000140 */
  115. 00000136  2F28 0002                move.l     -[A7], [A0 + 0x2]
  116. 0000013A  3F3C FFFF                move.w     -[A7], 0xFFFF
  117. 0000013E  A95D                     syscall    HiliteControl
  118. label00000140:
  119. 00000140  7000                     moveq.l    D0, 0x00
  120. 00000142  603C                     bra        +0x3E /* 00000180 */
  121. fn00000144:
  122. 00000144  2F0A                     move.l     -[A7], A2
  123. 00000146  7040                     moveq.l    D0, 0x40
  124. 00000148  E540                     asl        D0.w, 2
  125. 0000014A  A322                     syscall    NewHandleClear, flags=3
  126. 0000014C  2448                     movea.l    A2, A0
  127. 0000014E  2053                     movea.l    A0, [A3]
  128. 00000150  3F10                     move.w     -[A7], [A0]
  129. 00000152  3F17                     move.w     -[A7], [A7]
  130. 00000154  A998                     syscall    UseResFile
  131. 00000156  2F0A                     move.l     -[A7], A2
  132. 00000158  2F3C 534D 4150           move.l     -[A7], 0x534D4150 /* 'SMAP' */
  133. 0000015E  4267                     clr.w      -[A7]
  134. 00000160  487A 0A3E                pea.l      [PC + 0xA3E /* 00000BA0, value 0xD0, cstring "" */]
  135. 00000164  A9AB                     syscall    AddResource
  136. 00000166  2F0A                     move.l     -[A7], A2
  137. 00000168  A9B0                     syscall    WriteResource
  138. 0000016A  A999                     syscall    UpdateResFile
  139. 0000016C  245F                     movea.l    A2, [A7]+
  140. 0000016E  4E75                     rts
  141. label00000170:
  142. 00000170  A9A3                     syscall    ReleaseResource
  143. label00000172:
  144. 00000172  544F                     addq.w     A7, 2
  145. 00000174  3F3C 0006                move.w     -[A7], 0x6
  146. 00000178  A9C8                     syscall    SysBeep
  147. 0000017A  204B                     movea.l    A0, A3
  148. 0000017C  A023                     syscall    DisposHandle/DisposeHandle
  149. 0000017E  70FF                     moveq.l    D0, 0xFFFFFFFF
  150. label00000180:
  151. 00000180  C18B                     exg        D0, A3
  152. 00000182  A998                     syscall    UseResFile
  153. 00000184  C18B                     exg        D0, A3
  154. 00000186  21DF 0AF2                move.l     [0x00000AF2 /* ResErrProc */], [A7]+
  155. 0000018A  4CDF 1800                movem.l    A3,A4, [A7]+
  156. 0000018E  4E75                     rts
  157. fn00000190:
  158. 00000190  7003                     moveq.l    D0, 0x03
  159. 00000192  6100 06A2                bsr        +0x6A4 /* 00000836 */
  160. 00000196  2F08                     move.l     -[A7], A0
  161. 00000198  554F                     subq.w     A7, 2
  162. 0000019A  2F00                     move.l     -[A7], D0
  163. 0000019C  2010                     move.l     D0, [A0]
  164. 0000019E  A055                     syscall    StripAddress
  165. 000001A0  D197                     add.l      [A7], D0
  166. 000001A2  A997                     syscall    OpenResFile
  167. 000001A4  2053                     movea.l    A0, [A3]
  168. 000001A6  309F                     move.w     [A0], [A7]+
  169. 000001A8  A9A3                     syscall    ReleaseResource
  170. 000001AA  2053                     movea.l    A0, [A3]
  171. 000001AC  4A50                     tst.w      [A0]
  172. 000001AE  4E75                     rts
  173. fn000001B0:
  174. 000001B0  594F                     subq.w     A7, 4
  175. 000001B2  2F3C 534D 4150           move.l     -[A7], 0x534D4150 /* 'SMAP' */
  176. 000001B8  4267                     clr.w      -[A7]
  177. 000001BA  A81F                     syscall    Get1Resource
  178. 000001BC  201F                     move.l     D0, [A7]+
  179. 000001BE  672E                     beq        +0x30 /* 000001EE */
  180. 000001C0  2F00                     move.l     -[A7], D0
  181. 000001C2  2040                     movea.l    A0, D0
  182. 000001C4  2050                     movea.l    A0, [A0]
  183. 000001C6  2253                     movea.l    A1, [A3]
  184. 000001C8  43E9 0016                lea.l      A1, [A1 + 0x16]
  185. 000001CC  7040                     moveq.l    D0, 0x40
  186. 000001CE  E540                     asl        D0.w, 2
  187. 000001D0  A02E                     syscall    BlockMove/BlockMoveData
  188. 000001D2  7000                     moveq.l    D0, 0x00
  189. 000001D4  323C 00FF                move.w     D1, 0xFF
  190. label000001D8:
  191. 000001D8  4A19                     tst.b      [A1]+
  192. 000001DA  6702                     beq        +0x4 /* 000001DE */
  193. 000001DC  5240                     addq.w     D0, 1
  194. label000001DE:
  195. 000001DE  51C9 FFF8                dbf        D1, -0xA /* 000001D8 */
  196. 000001E2  2053                     movea.l    A0, [A3]
  197. 000001E4  3140 0008                move.w     [A0 + 0x8], D0
  198. 000001E8  A9A3                     syscall    ReleaseResource
  199. 000001EA  7000                     moveq.l    D0, 0x00
  200. 000001EC  4E75                     rts
  201. label000001EE:
  202. 000001EE  584F                     addq.w     A7, 4
  203. 000001F0  2053                     movea.l    A0, [A3]
  204. 000001F2  50E8 000A                st         [A0 + 0xA]
  205. 000001F6  4E75                     rts
  206. close:
  207. 000001F8  48E7 0018                movem.l    -[A7], A3,A4
  208. 000001FC  2F38 0AF2                move.l     -[A7], [0x00000AF2 /* ResErrProc */]
  209. 00000200  42B8 0AF2                clr.l      [0x00000AF2 /* ResErrProc */]
  210. 00000204  554F                     subq.w     A7, 2
  211. 00000206  A994                     syscall    CurResFile
  212. 00000208  2849                     movea.l    A4, A1
  213. 0000020A  266C 0014                movea.l    A3, [A4 + 0x14]
  214. 0000020E  2053                     movea.l    A0, [A3]
  215. 00000210  3F10                     move.w     -[A7], [A0]
  216. 00000212  A99A                     syscall    CloseResFile
  217. 00000214  6100 0A92                bsr        +0xA94 /* 00000CA8 */
  218. 00000218  204B                     movea.l    A0, A3
  219. 0000021A  A023                     syscall    DisposHandle/DisposeHandle
  220. 0000021C  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  221. 00000220  42AC 001E                clr.l      [A4 + 0x1E]
  222. 00000224  A914                     syscall    DisposeWindow
  223. 00000226  A998                     syscall    UseResFile
  224. 00000228  21DF 0AF2                move.l     [0x00000AF2 /* ResErrProc */], [A7]+
  225. 0000022C  4CDF 1800                movem.l    A3,A4, [A7]+
  226. prime:
  227. status:
  228. 00000230  7000                     moveq.l    D0, 0x00
  229. 00000232  4E75                     rts
  230. control:
  231. 00000234  48E7 0018                movem.l    -[A7], A3,A4
  232. 00000238  2F38 0AF2                move.l     -[A7], [0x00000AF2 /* ResErrProc */]
  233. 0000023C  42B8 0AF2                clr.l      [0x00000AF2 /* ResErrProc */]
  234. 00000240  554F                     subq.w     A7, 2
  235. 00000242  A994                     syscall    CurResFile
  236. 00000244  2849                     movea.l    A4, A1
  237. 00000246  266C 0014                movea.l    A3, [A4 + 0x14]
  238. 0000024A  3028 001A                move.w     D0, [A0 + 0x1A]
  239. 0000024E  0C40 FFFF                cmpi.w     D0, 0xFFFF
  240. 00000252  673C                     beq        +0x3E /* 00000290 */
  241. 00000254  0440 0040                subi.w     D0, 0x40 /* '@' */
  242. 00000258  6B0A                     bmi        +0xC /* 00000264 */
  243. 0000025A  6740                     beq        +0x42 /* 0000029C */
  244. 0000025C  0C40 0002                cmpi.w     D0, 0x2
  245. 00000260  6E16                     bgt        +0x18 /* 00000278 */
  246. 00000262  671E                     beq        +0x20 /* 00000282 */
  247. label00000264:
  248. 00000264  224C                     movea.l    A1, A4
  249. 00000266  A998                     syscall    UseResFile
  250. 00000268  21DF 0AF2                move.l     [0x00000AF2 /* ResErrProc */], [A7]+
  251. 0000026C  4CDF 1800                movem.l    A3,A4, [A7]+
  252. 00000270  7000                     moveq.l    D0, 0x00
  253. 00000272  2F38 08FC                move.l     -[A7], [0x000008FC /* JIODone */]
  254. 00000276  4E75                     rts
  255. label00000278:
  256. 00000278  5D40                     subq.w     D0, 6
  257. 0000027A  6DE8                     blt        -0x16 /* 00000264 */
  258. 0000027C  6100 0676                bsr        +0x678 /* 000008F4 */
  259. 00000280  60E2                     bra        -0x1C /* 00000264 */
  260. label00000282:
  261. 00000282  6100 0AB2                bsr        +0xAB4 /* 00000D36 */
  262. 00000286  2055                     movea.l    A0, [A5]
  263. 00000288  4868 FF94                pea.l      [A0 - 0x6C]
  264. 0000028C  A851                     syscall    SetCursor
  265. 0000028E  60D4                     bra        -0x2A /* 00000264 */
  266. label00000290:
  267. 00000290  2053                     movea.l    A0, [A3]
  268. 00000292  3F10                     move.w     -[A7], [A0]
  269. 00000294  A99A                     syscall    CloseResFile
  270. 00000296  6100 0A10                bsr        +0xA12 /* 00000CA8 */
  271. 0000029A  60C8                     bra        -0x36 /* 00000264 */
  272. label0000029C:
  273. 0000029C  2F0A                     move.l     -[A7], A2
  274. 0000029E  2468 001C                movea.l    A2, [A0 + 0x1C]
  275. 000002A2  3012                     move.w     D0, [A2]
  276. 000002A4  5340                     subq.w     D0, 1
  277. 000002A6  6762                     beq        +0x64 /* 0000030A */
  278. 000002A8  5540                     subq.w     D0, 2
  279. 000002AA  6712                     beq        +0x14 /* 000002BE */
  280. 000002AC  5540                     subq.w     D0, 2
  281. 000002AE  670E                     beq        +0x10 /* 000002BE */
  282. 000002B0  5340                     subq.w     D0, 1
  283. 000002B2  673A                     beq        +0x3C /* 000002EE */
  284. 000002B4  5540                     subq.w     D0, 2
  285. 000002B6  6700 00D2                beq        +0xD4 /* 0000038A */
  286. label000002BA:
  287. 000002BA  245F                     movea.l    A2, [A7]+
  288. 000002BC  60A6                     bra        -0x58 /* 00000264 */
  289. label000002BE:
  290. 000002BE  082A 0000 000E           btst.b     [A2 + 0xE], 0x0
  291. 000002C4  67F4                     beq        -0xA /* 000002BA */
  292. 000002C6  122A 0005                move.b     D1, [A2 + 0x5]
  293. 000002CA  0201 00DF                andi.b     D1, 0xDF
  294. 000002CE  41FA 001A                lea.l      A0, [PC + 0x1A /* 000002EA, value 0x56435800 'VCX\0', cstring "VCX" */]
  295. 000002D2  7002                     moveq.l    D0, 0x02
  296. label000002D4:
  297. 000002D4  B218                     cmp.b      D1, [A0]+
  298. 000002D6  57C8 FFFC                dbeq       D0, -0x6 /* 000002D4 */
  299. 000002DA  6606                     bne        +0x8 /* 000002E2 */
  300. 000002DC  6100 0616                bsr        +0x618 /* 000008F4 */
  301. 000002E0  60D8                     bra        -0x26 /* 000002BA */
  302. label000002E2:
  303. 000002E2  3F3C 0004                move.w     -[A7], 0x4
  304. 000002E6  A9C8                     syscall    SysBeep
  305. 000002E8  60D0                     bra        -0x2E /* 000002BA */
  306. 000002EA  5643                     addq.w     D3, 3
  307. 000002EC  5800                     addq.b     D0, 4
  308. label000002EE:
  309. 000002EE  554F                     subq.w     A7, 2
  310. 000002F0  A994                     syscall    CurResFile
  311. 000002F2  2053                     movea.l    A0, [A3]
  312. 000002F4  3F10                     move.w     -[A7], [A0]
  313. 000002F6  A998                     syscall    UseResFile
  314. 000002F8  2F2A 0002                move.l     -[A7], [A2 + 0x2]
  315. 000002FC  2F17                     move.l     -[A7], [A7]
  316. 000002FE  A922                     syscall    BeginUpdate
  317. 00000300  6100 03EA                bsr        +0x3EC /* 000006EC */
  318. 00000304  A923                     syscall    EndUpdate
  319. 00000306  A998                     syscall    UseResFile
  320. 00000308  60B0                     bra        -0x4E /* 000002BA */
  321. label0000030A:
  322. 0000030A  4E56 FFF8                link       A6, -0x0008
  323. 0000030E  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  324. 00000312  A873                     syscall    SetPort
  325. 00000314  2D6A 000A FFFC           move.l     [A6 - 0x4], [A2 + 0xA]
  326. 0000031A  486E FFFC                pea.l      [A6 - 0x4]
  327. 0000031E  A871                     syscall    GlobalToLocal
  328. 00000320  4267                     clr.w      -[A7]
  329. 00000322  2F2E FFFC                move.l     -[A7], [A6 - 0x4]
  330. 00000326  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  331. 0000032A  486E FFF8                pea.l      [A6 - 0x8]
  332. 0000032E  A96C                     syscall    FindControl
  333. 00000330  301F                     move.w     D0, [A7]+
  334. 00000332  6732                     beq        +0x34 /* 00000366 */
  335. 00000334  4267                     clr.w      -[A7]
  336. 00000336  2F2E FFF8                move.l     -[A7], [A6 - 0x8]
  337. 0000033A  2F2E FFFC                move.l     -[A7], [A6 - 0x4]
  338. 0000033E  226E FFF8                movea.l    A1, [A6 - 0x8]
  339. 00000342  2053                     movea.l    A0, [A3]
  340. 00000344  B3E8 0002                cmpa.l     A1, [A0 + 0x2]
  341. 00000348  6610                     bne        +0x12 /* 0000035A */
  342. 0000034A  4A00                     tst.b      D0
  343. 0000034C  6B1E                     bmi        +0x20 /* 0000036C */
  344. 0000034E  41FA 0802                lea.l      A0, [PC + 0x802 /* 00000B52, value 0x48E71810 */]
  345. 00000352  2F08                     move.l     -[A7], A0
  346. 00000354  A968                     syscall    TrackControl
  347. 00000356  544F                     addq.w     A7, 2
  348. 00000358  600C                     bra        +0xE /* 00000366 */
  349. label0000035A:
  350. 0000035A  42A7                     clr.l      -[A7]
  351. 0000035C  A968                     syscall    TrackControl
  352. 0000035E  301F                     move.w     D0, [A7]+
  353. 00000360  6704                     beq        +0x6 /* 00000366 */
  354. 00000362  6100 00C6                bsr        +0xC8 /* 0000042A */
  355. label00000366:
  356. 00000366  4E5E                     unlink     A6
  357. 00000368  6000 FF50                bra        -0xAE /* 000002BA */
  358. label0000036C:
  359. 0000036C  554F                     subq.w     A7, 2
  360. 0000036E  2F2E FFF8                move.l     -[A7], [A6 - 0x8]
  361. 00000372  A960                     syscall    GetControlValue/GetCtlValue
  362. 00000374  361F                     move.w     D3, [A7]+
  363. 00000376  42A7                     clr.l      -[A7]
  364. 00000378  A968                     syscall    TrackControl
  365. 0000037A  2F2E FFF8                move.l     -[A7], [A6 - 0x8]
  366. 0000037E  A960                     syscall    GetControlValue/GetCtlValue
  367. 00000380  B65F                     cmp.w      D3, [A7]+
  368. 00000382  67E2                     beq        -0x1C /* 00000366 */
  369. 00000384  6100 037C                bsr        +0x37E /* 00000702 */
  370. 00000388  60DC                     bra        -0x22 /* 00000366 */
  371. label0000038A:
  372. 0000038A  2053                     movea.l    A0, [A3]
  373. 0000038C  2F28 0002                move.l     -[A7], [A0 + 0x2]
  374. 00000390  082A 0000 000F           btst.b     [A2 + 0xF], 0x0
  375. 00000396  6706                     beq        +0x8 /* 0000039E */
  376. 00000398  A957                     syscall    ShowControl
  377. 0000039A  6000 FF1E                bra        -0xE0 /* 000002BA */
  378. label0000039E:
  379. 0000039E  A958                     syscall    HideControl
  380. 000003A0  6000 FF18                bra        -0xE6 /* 000002BA */
  381. fn000003A4:
  382. 000003A4  594F                     subq.w     A7, 4
  383. 000003A6  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  384. 000003AA  487A 07F6                pea.l      [PC + 0x7F6 /* 00000BA2, value 0xD0000C, cstring "" */]
  385. 000003AE  487A 07F0                pea.l      [PC + 0x7F0 /* 00000BA0, value 0xD0, cstring "" */]
  386. 000003B2  3F3C 0100                move.w     -[A7], 0x100
  387. 000003B6  2F38 0A02                move.l     -[A7], [0x00000A02 /* OneOne */]
  388. 000003BA  2053                     movea.l    A0, [A3]
  389. 000003BC  3F28 0008                move.w     -[A7], [A0 + 0x8]
  390. 000003C0  3F3C 0010                move.w     -[A7], 0x10
  391. 000003C4  42A7                     clr.l      -[A7]
  392. 000003C6  A954                     syscall    NewControl
  393. 000003C8  2053                     movea.l    A0, [A3]
  394. 000003CA  215F 0002                move.l     [A0 + 0x2], [A7]+
  395. 000003CE  594F                     subq.w     A7, 4
  396. 000003D0  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  397. 000003D4  7000                     moveq.l    D0, 0x00
  398. 000003D6  6100 0492                bsr        +0x494 /* 0000086A */
  399. 000003DA  594F                     subq.w     A7, 4
  400. 000003DC  2F3C 5245 4354           move.l     -[A7], 0x52454354 /* 'RECT' */
  401. 000003E2  3F00                     move.w     -[A7], D0
  402. 000003E4  A9A0                     syscall    GetResource
  403. 000003E6  2057                     movea.l    A0, [A7]
  404. 000003E8  2E90                     move.l     [A7], [A0]
  405. 000003EA  7007                     moveq.l    D0, 0x07
  406. 000003EC  6100 0448                bsr        +0x44A /* 00000836 */
  407. 000003F0  2050                     movea.l    A0, [A0]
  408. 000003F2  4870 0000                pea.l      [A0 + D0.w]
  409. 000003F6  4267                     clr.w      -[A7]
  410. 000003F8  42A7                     clr.l      -[A7]
  411. 000003FA  3F3C 0001                move.w     -[A7], 0x1
  412. 000003FE  4267                     clr.w      -[A7]
  413. 00000400  42A7                     clr.l      -[A7]
  414. 00000402  A954                     syscall    NewControl
  415. 00000404  2053                     movea.l    A0, [A3]
  416. 00000406  215F 000C                move.l     [A0 + 0xC], [A7]+
  417. 0000040A  4E75                     rts
  418. fn0000040C:
  419. 0000040C  2053                     movea.l    A0, [A3]
  420. 0000040E  41E8 0016                lea.l      A0, [A0 + 0x16]
  421. 00000412  7200                     moveq.l    D1, 0x00
  422. label00000414:
  423. 00000414  B018                     cmp.b      D0, [A0]+
  424. 00000416  670A                     beq        +0xC /* 00000422 */
  425. 00000418  5241                     addq.w     D1, 1
  426. 0000041A  4A01                     tst.b      D1
  427. 0000041C  66F6                     bne        -0x8 /* 00000414 */
  428. 0000041E  7000                     moveq.l    D0, 0x00
  429. 00000420  4E75                     rts
  430. label00000422:
  431. 00000422  3001                     move.w     D0, D1
  432. 00000424  0040 8000                ori.w      D0, 0x8000
  433. label00000428:
  434. 00000428  4E75                     rts
  435. fn0000042A:
  436. 0000042A  2053                     movea.l    A0, [A3]
  437. 0000042C  2268 0010                movea.l    A1, [A0 + 0x10]
  438. 00000430  2F09                     move.l     -[A7], A1
  439. 00000432  A9A2                     syscall    LoadResource
  440. 00000434  554F                     subq.w     A7, 2
  441. 00000436  42A7                     clr.l      -[A7]
  442. 00000438  2F09                     move.l     -[A7], A1
  443. 0000043A  4267                     clr.w      -[A7]
  444. 0000043C  A805                     syscall    SndPlay
  445. 0000043E  301F                     move.w     D0, [A7]+
  446. 00000440  4E75                     rts
  447. fn00000442:
  448. 00000442  7000                     moveq.l    D0, 0x00
  449. 00000444  61C6                     bsr        -0x38 /* 0000040C */
  450. 00000446  67E0                     beq        -0x1E /* 00000428 */
  451. 00000448  3F01                     move.w     -[A7], D1
  452. 0000044A  6100 0504                bsr        +0x506 /* 00000950 */
  453. 0000044E  321F                     move.w     D1, [A7]+
  454. 00000450  2053                     movea.l    A0, [A3]
  455. 00000452  1180 1016                move.b     [A0 + D1.w + 0x16], D0
  456. 00000456  5268 0008                addq.w     [A0 + 0x8], 1
  457. 0000045A  343C 00FF                move.w     D2, 0xFF
  458. label0000045E:
  459. 0000045E  B030 2016                cmp.b      D0, [A0 + D2.w + 0x16]
  460. 00000462  6208                     bhi        +0xA /* 0000046C */
  461. 00000464  B441                     cmp.w      D2, D1
  462. 00000466  6704                     beq        +0x6 /* 0000046C */
  463. 00000468  5230 2016                addq.b     [A0 + D2.w + 0x16], 1
  464. label0000046C:
  465. 0000046C  51CA FFF0                dbf        D2, -0x12 /* 0000045E */
  466. 00000470  3801                     move.w     D4, D1
  467. 00000472  0044 8000                ori.w      D4, 0x8000
  468. label00000476:
  469. 00000476  554F                     subq.w     A7, 2
  470. 00000478  A994                     syscall    CurResFile
  471. 0000047A  2053                     movea.l    A0, [A3]
  472. 0000047C  3F10                     move.w     -[A7], [A0]
  473. 0000047E  3F17                     move.w     -[A7], [A7]
  474. 00000480  A998                     syscall    UseResFile
  475. 00000482  594F                     subq.w     A7, 4
  476. 00000484  2F3C 534D 4150           move.l     -[A7], 0x534D4150 /* 'SMAP' */
  477. 0000048A  4267                     clr.w      -[A7]
  478. 0000048C  A81F                     syscall    Get1Resource
  479. 0000048E  2257                     movea.l    A1, [A7]
  480. 00000490  2251                     movea.l    A1, [A1]
  481. 00000492  2053                     movea.l    A0, [A3]
  482. 00000494  41E8 0016                lea.l      A0, [A0 + 0x16]
  483. 00000498  7040                     moveq.l    D0, 0x40
  484. 0000049A  E540                     asl        D0.w, 2
  485. 0000049C  A02E                     syscall    BlockMove/BlockMoveData
  486. 0000049E  2F17                     move.l     -[A7], [A7]
  487. 000004A0  A9AA                     syscall    ChangedResource
  488. 000004A2  A9B0                     syscall    WriteResource
  489. 000004A4  A999                     syscall    UpdateResFile
  490. 000004A6  A998                     syscall    UseResFile
  491. 000004A8  70FF                     moveq.l    D0, 0xFFFFFFFF
  492. label000004AA:
  493. 000004AA  4E75                     rts
  494. fn000004AC:
  495. 000004AC  6100 FF5E                bsr        -0xA0 /* 0000040C */
  496. 000004B0  67F8                     beq        -0x6 /* 000004AA */
  497. 000004B2  1020                     move.b     D0, -[A0]
  498. 000004B4  4210                     clr.b      [A0]
  499. 000004B6  323C 00FF                move.w     D1, 0xFF
  500. 000004BA  2053                     movea.l    A0, [A3]
  501. 000004BC  41E8 0016                lea.l      A0, [A0 + 0x16]
  502. label000004C0:
  503. 000004C0  B018                     cmp.b      D0, [A0]+
  504. 000004C2  6204                     bhi        +0x6 /* 000004C8 */
  505. 000004C4  5328 FFFF                subq.b     [A0 - 0x1], 1
  506. label000004C8:
  507. 000004C8  51C9 FFF6                dbf        D1, -0xC /* 000004C0 */
  508. 000004CC  60A8                     bra        -0x56 /* 00000476 */
  509. fn000004CE:
  510. 000004CE  48E7 1F00                movem.l    -[A7], D3,D4,D5,D6,D7
  511. 000004D2  3E01                     move.w     D7, D1
  512. 000004D4  4A40                     tst.w      D0
  513. 000004D6  6752                     beq        +0x54 /* 0000052A */
  514. 000004D8  6100 FF32                bsr        -0xCC /* 0000040C */
  515. 000004DC  3600                     move.w     D3, D0
  516. 000004DE  4227                     clr.b      -[A7]
  517. 000004E0  A99B                     syscall    SetResLoad
  518. 000004E2  554F                     subq.w     A7, 2
  519. 000004E4  A81C                     syscall    Count1Types
  520. 000004E6  381F                     move.w     D4, [A7]+
  521. 000004E8  7A00                     moveq.l    D5, 0x00
  522. 000004EA  7C00                     moveq.l    D6, 0x00
  523. label000004EC:
  524. 000004EC  5246                     addq.w     D6, 1
  525. 000004EE  514F                     subq.w     A7, 8
  526. 000004F0  2F0F                     move.l     -[A7], A7
  527. 000004F2  3F06                     move.w     -[A7], D6
  528. 000004F4  A80F                     syscall    Get1IndType/Get1IxType
  529. 000004F6  3F03                     move.w     -[A7], D3
  530. 000004F8  A81F                     syscall    Get1Resource
  531. 000004FA  201F                     move.l     D0, [A7]+
  532. 000004FC  6706                     beq        +0x8 /* 00000504 */
  533. 000004FE  5245                     addq.w     D5, 1
  534. 00000500  BE45                     cmp.w      D7, D5
  535. 00000502  6712                     beq        +0x14 /* 00000516 */
  536. label00000504:
  537. 00000504  B846                     cmp.w      D4, D6
  538. 00000506  6EE4                     bgt        -0x1A /* 000004EC */
  539. 00000508  7000                     moveq.l    D0, 0x00
  540. label0000050A:
  541. 0000050A  50E7                     st         -[A7]
  542. 0000050C  A99B                     syscall    SetResLoad
  543. 0000050E  3205                     move.w     D1, D5
  544. 00000510  4CDF 00F8                movem.l    D3,D4,D5,D6,D7, [A7]+
  545. 00000514  4E75                     rts
  546. label00000516:
  547. 00000516  594F                     subq.w     A7, 4
  548. 00000518  2F0F                     move.l     -[A7], A7
  549. 0000051A  3F06                     move.w     -[A7], D6
  550. 0000051C  A80F                     syscall    Get1IndType/Get1IxType
  551. 0000051E  201F                     move.l     D0, [A7]+
  552. 00000520  60E8                     bra        -0x16 /* 0000050A */
  553. fn00000522:
  554. 00000522  72FF                     moveq.l    D1, 0xFFFFFFFF
  555. 00000524  61A8                     bsr        -0x56 /* 000004CE */
  556. 00000526  3001                     move.w     D0, D1
  557. 00000528  4E75                     rts
  558. label0000052A:
  559. 0000052A  7A00                     moveq.l    D5, 0x00
  560. 0000052C  4AB8 0960                tst.l      [0x00000960 /* ScrapSize/ScrapInfo/ScrapVars */]
  561. 00000530  672E                     beq        +0x30 /* 00000560 */
  562. 00000532  4A78 096A                tst.w      [0x0000096A /* ScrapState */]
  563. 00000536  672C                     beq        +0x2E /* 00000564 */
  564. 00000538  6B26                     bmi        +0x28 /* 00000560 */
  565. 0000053A  2078 0964                movea.l    A0, [0x00000964 /* ScrapHandle */]
  566. 0000053E  2050                     movea.l    A0, [A0]
  567. 00000540  2208                     move.l     D1, A0
  568. label00000542:
  569. 00000542  2018                     move.l     D0, [A0]+
  570. 00000544  D1D8                     add.l      A0, [A0]+
  571. 00000546  2C08                     move.l     D6, A0
  572. 00000548  5286                     addq.l     D6, 1
  573. 0000054A  0886 0000                bclr.b     D6, 0x0
  574. 0000054E  2046                     movea.l    A0, D6
  575. 00000550  5245                     addq.w     D5, 1
  576. 00000552  BE45                     cmp.w      D7, D5
  577. 00000554  67B4                     beq        -0x4A /* 0000050A */
  578. 00000556  2408                     move.l     D2, A0
  579. 00000558  9481                     sub.l      D2, D1
  580. 0000055A  B4B8 0960                cmp.l      D2, [0x00000960 /* ScrapSize/ScrapInfo/ScrapVars */]
  581. 0000055E  6DE2                     blt        -0x1C /* 00000542 */
  582. label00000560:
  583. 00000560  7000                     moveq.l    D0, 0x00
  584. 00000562  60A6                     bra        -0x58 /* 0000050A */
  585. label00000564:
  586. 00000564  700F                     moveq.l    D0, 0x0F
  587. label00000566:
  588. 00000566  42A7                     clr.l      -[A7]
  589. 00000568  51C8 FFFC                dbf        D0, -0x6 /* 00000566 */
  590. 0000056C  204F                     movea.l    A0, A7
  591. 0000056E  2178 096C 0012           move.l     [A0 + 0x12], [0x0000096C /* ScrapName */]
  592. 00000574  3178 0210 0016           move.w     [A0 + 0x16], [0x00000210 /* BootDrive */]
  593. 0000057A  A000                     syscall    Open/PBHOpen/HOpen
  594. 0000057C  6706                     beq        +0x8 /* 00000584 */
  595. 0000057E  0C40 FFCF                cmpi.w     D0, 0xFFCF
  596. 00000582  6644                     bne        +0x46 /* 000005C8 */
  597. label00000584:
  598. 00000584  41E8 0020                lea.l      A0, [A0 + 0x20]
  599. 00000588  43FA 065A                lea.l      A1, [PC + 0x65A /* 00000BE4, value 0x0, cstring "" */]
  600. 0000058C  20C9                     move.l     [A0]+, A1
  601. 0000058E  7008                     moveq.l    D0, 0x08
  602. 00000590  20C0                     move.l     [A0]+, D0
  603. 00000592  4298                     clr.l      [A0]+
  604. 00000594  30FC 0001                move.w     [A0]+, 0x1
  605. 00000598  4298                     clr.l      [A0]+
  606. 0000059A  204F                     movea.l    A0, A7
  607. label0000059C:
  608. 0000059C  A002                     syscall    Read
  609. 0000059E  6628                     bne        +0x2A /* 000005C8 */
  610. 000005A0  4CFA 0003 0640           movem.l    D0,D1, [PC + 0x640 /* 00000BE2, value 0x40000, cstring "" */]
  611. 000005A6  5281                     addq.l     D1, 1
  612. 000005A8  0881 0000                bclr.b     D1, 0x0
  613. 000005AC  D3A8 002E                add.l      [A0 + 0x2E], D1
  614. 000005B0  5245                     addq.w     D5, 1
  615. 000005B2  BE45                     cmp.w      D7, D5
  616. 000005B4  670A                     beq        +0xC /* 000005C0 */
  617. 000005B6  2228 002E                move.l     D1, [A0 + 0x2E]
  618. 000005BA  B2B8 0960                cmp.l      D1, [0x00000960 /* ScrapSize/ScrapInfo/ScrapVars */]
  619. 000005BE  6DDC                     blt        -0x22 /* 0000059C */
  620. label000005C0:
  621. 000005C0  4FEF 0040                lea.l      A7, [A7 + 0x40]
  622. 000005C4  6000 FF44                bra        -0xBA /* 0000050A */
  623. label000005C8:
  624. 000005C8  7A00                     moveq.l    D5, 0x00
  625. 000005CA  7000                     moveq.l    D0, 0x00
  626. 000005CC  60F2                     bra        -0xC /* 000005C0 */
  627. fn000005CE:
  628. 000005CE  514F                     subq.w     A7, 8
  629. 000005D0  206C 001E                movea.l    A0, [A4 + 0x1E]
  630. 000005D4  2EA8 0010                move.l     [A7], [A0 + 0x10]
  631. 000005D8  2F68 0014 0004           move.l     [A7 + 0x4], [A0 + 0x14]
  632. 000005DE  046F 0030 0004           subi.w     [A7 + 0x4], 0x30 /* '0' */
  633. 000005E4  2F0F                     move.l     -[A7], A7
  634. 000005E6  2F3C 0005 0005           move.l     -[A7], 0x50005
  635. 000005EC  2F3C 0004 0004           move.l     -[A7], 0x40004
  636. 000005F2  A89B                     syscall    PenSize
  637. 000005F4  A8A9                     syscall    InsetRect
  638. 000005F6  2F0F                     move.l     -[A7], A7
  639. 000005F8  A8A1                     syscall    FrameRect
  640. 000005FA  A89E                     syscall    PenNormal
  641. 000005FC  2F0F                     move.l     -[A7], A7
  642. 000005FE  2F3C 0006 0006           move.l     -[A7], 0x60006
  643. 00000604  A8A9                     syscall    InsetRect
  644. 00000606  2F0F                     move.l     -[A7], A7
  645. 00000608  A8A1                     syscall    FrameRect
  646. 0000060A  504F                     addq.w     A7, 8
  647. 0000060C  4E75                     rts
  648. fn0000060E:
  649. 0000060E  2053                     movea.l    A0, [A3]
  650. 00000610  4A68 0008                tst.w      [A0 + 0x8]
  651. 00000614  673E                     beq        +0x40 /* 00000654 */
  652. 00000616  4267                     clr.w      -[A7]
  653. 00000618  A889                     syscall    TextMode
  654. 0000061A  617E                     bsr        +0x80 /* 0000069A */
  655. 0000061C  2F3C 00F4 0012           move.l     -[A7], 0xF40012
  656. 00000622  A893                     syscall    MoveTo
  657. 00000624  6100 032A                bsr        +0x32C /* 00000950 */
  658. 00000628  6138                     bsr        +0x3A /* 00000662 */
  659. 0000062A  487A 05B2                pea.l      [PC + 0x5B2 /* 00000BDE, value 0x3202F20, pstring " / " */]
  660. 0000062E  A884                     syscall    DrawString
  661. 00000630  2053                     movea.l    A0, [A3]
  662. 00000632  3028 0008                move.w     D0, [A0 + 0x8]
  663. 00000636  612A                     bsr        +0x2C /* 00000662 */
  664. 00000638  2F3A 0590                move.l     -[A7], [PC + 0x590 /* 00000BCA, value 0xF80048, cstring "" */]
  665. 0000063C  594F                     subq.w     A7, 4
  666. 0000063E  2F0F                     move.l     -[A7], A7
  667. 00000640  A89A                     syscall    GetPen
  668. 00000642  3EBA 0582                move.w     [A7], [PC + 0x582 /* 00000BC6, value 0xE8, cstring "" */]
  669. 00000646  2F0F                     move.l     -[A7], A7
  670. 00000648  A8A3                     syscall    EraseRect
  671. 0000064A  504F                     addq.w     A7, 8
  672. 0000064C  3F3C 0001                move.w     -[A7], 0x1
  673. 00000650  A889                     syscall    TextMode
  674. 00000652  4E75                     rts
  675. label00000654:
  676. 00000654  487A 0570                pea.l      [PC + 0x570 /* 00000BC6, value 0xE8000C, cstring "" */]
  677. 00000658  A8A3                     syscall    EraseRect
  678. 0000065A  487A 0572                pea.l      [PC + 0x572 /* 00000BCE, value 0xEA00FA, cstring "" */]
  679. 0000065E  A8A3                     syscall    EraseRect
  680. 00000660  4E75                     rts
  681. fn00000662:
  682. 00000662  3F03                     move.w     -[A7], D3
  683. 00000664  7600                     moveq.l    D3, 0x00
  684. 00000666  48C0                     ext.l      D0
  685. 00000668  80FC 0064                divu.w     D0, 0x64 /* 'd' */
  686. 0000066C  6122                     bsr        +0x24 /* 00000690 */
  687. 0000066E  4840                     swap.w     D0
  688. 00000670  48C0                     ext.l      D0
  689. 00000672  80FC 000A                divu.w     D0, 0xA /* '\n' */
  690. 00000676  6118                     bsr        +0x1A /* 00000690 */
  691. 00000678  4840                     swap.w     D0
  692. 0000067A  6104                     bsr        +0x6 /* 00000680 */
  693. 0000067C  361F                     move.w     D3, [A7]+
  694. 0000067E  4E75                     rts
  695. fn00000680:
  696. 00000680  50C3                     st         D3
  697. 00000682  2F00                     move.l     -[A7], D0
  698. 00000684  0040 0030                ori.w      D0, 0x30 /* '0' */
  699. 00000688  3F00                     move.w     -[A7], D0
  700. 0000068A  A883                     syscall    DrawChar
  701. 0000068C  201F                     move.l     D0, [A7]+
  702. 0000068E  4E75                     rts
  703. fn00000690:
  704. 00000690  4A40                     tst.w      D0
  705. 00000692  66EC                     bne        -0x12 /* 00000680 */
  706. 00000694  4A03                     tst.b      D3
  707. 00000696  66E8                     bne        -0x16 /* 00000680 */
  708. 00000698  4E75                     rts
  709. fn0000069A:
  710. 0000069A  48E7 1C00                movem.l    -[A7], D3,D4,D5
  711. 0000069E  6100 02B0                bsr        +0x2B2 /* 00000950 */
  712. 000006A2  3600                     move.w     D3, D0
  713. 000006A4  6100 FE7C                bsr        -0x182 /* 00000522 */
  714. 000006A8  3800                     move.w     D4, D0
  715. 000006AA  7A00                     moveq.l    D5, 0x00
  716. 000006AC  C0FC 001E                mulu.w     D0, 0x1E
  717. 000006B0  323A 0522                move.w     D1, [PC + 0x522 /* 00000BD4, value 0x174 */]
  718. 000006B4  9240                     sub.w      D1, D0
  719. 000006B6  3F01                     move.w     -[A7], D1
  720. 000006B8  3F3C 00F4                move.w     -[A7], 0xF4
  721. 000006BC  A893                     syscall    MoveTo
  722. 000006BE  487A 050E                pea.l      [PC + 0x50E /* 00000BCE, value 0xEA00FA, cstring "" */]
  723. 000006C2  A8A3                     syscall    EraseRect
  724. label000006C4:
  725. 000006C4  5245                     addq.w     D5, 1
  726. 000006C6  3003                     move.w     D0, D3
  727. 000006C8  3205                     move.w     D1, D5
  728. 000006CA  6100 FE02                bsr        -0x1FC /* 000004CE */
  729. 000006CE  41FA 0513                lea.l      A0, [PC + 0x513 /* 00000BE3, value 0x4000000 */]
  730. 000006D2  2140 0001                move.l     [A0 + 0x1], D0
  731. 000006D6  2F08                     move.l     -[A7], A0
  732. 000006D8  A884                     syscall    DrawString
  733. 000006DA  B845                     cmp.w      D4, D5
  734. 000006DC  6F08                     ble        +0xA /* 000006E6 */
  735. 000006DE  487A 050C                pea.l      [PC + 0x50C /* 00000BEC, value 0x22C2000, pstring ", " */]
  736. 000006E2  A884                     syscall    DrawString
  737. 000006E4  60DE                     bra        -0x20 /* 000006C4 */
  738. label000006E6:
  739. 000006E6  4CDF 0038                movem.l    D3,D4,D5, [A7]+
  740. 000006EA  4E75                     rts
  741. fn000006EC:
  742. 000006EC  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  743. 000006F0  2F17                     move.l     -[A7], [A7]
  744. 000006F2  A873                     syscall    SetPort
  745. 000006F4  2057                     movea.l    A0, [A7]
  746. 000006F6  4868 0010                pea.l      [A0 + 0x10]
  747. 000006FA  A87B                     syscall    ClipRect
  748. 000006FC  A969                     syscall    DrawControls
  749. 000006FE  6100 FECE                bsr        -0x130 /* 000005CE */
  750. fn00000702:
  751. 00000702  4E56 FFF8                link       A6, -0x0008
  752. 00000706  48E7 1E30                movem.l    -[A7], D3,D4,D5,D6,A2,A3
  753. 0000070A  554F                     subq.w     A7, 2
  754. 0000070C  A994                     syscall    CurResFile
  755. 0000070E  2053                     movea.l    A0, [A3]
  756. 00000710  3F10                     move.w     -[A7], [A0]
  757. 00000712  A998                     syscall    UseResFile
  758. 00000714  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  759. 00000718  A88A                     syscall    TextSize
  760. 0000071A  6100 FEF2                bsr        -0x10C /* 0000060E */
  761. 0000071E  3F3C 000C                move.w     -[A7], 0xC
  762. 00000722  A88A                     syscall    TextSize
  763. 00000724  487A 0484                pea.l      [PC + 0x484 /* 00000BAA, value 0x100010, cstring "" */]
  764. 00000728  A87B                     syscall    ClipRect
  765. 0000072A  4267                     clr.w      -[A7]
  766. 0000072C  2053                     movea.l    A0, [A3]
  767. 0000072E  4A28 000A                tst.b      [A0 + 0xA]
  768. 00000732  6600 00FC                bne        +0xFE /* 00000830 */
  769. 00000736  4A68 0008                tst.w      [A0 + 0x8]
  770. 0000073A  6700 00B4                beq        +0xB6 /* 000007F0 */
  771. 0000073E  6100 0210                bsr        +0x212 /* 00000950 */
  772. 00000742  6100 FCC8                bsr        -0x336 /* 0000040C */
  773. 00000746  3800                     move.w     D4, D0
  774. 00000748  594F                     subq.w     A7, 4
  775. 0000074A  2F3C 5049 4354           move.l     -[A7], 0x50494354 /* 'PICT' */
  776. 00000750  3F04                     move.w     -[A7], D4
  777. 00000752  A81F                     syscall    Get1Resource
  778. 00000754  2017                     move.l     D0, [A7]
  779. 00000756  6700 0128                beq        +0x12A /* 00000880 */
  780. 0000075A  2440                     movea.l    A2, D0
  781. 0000075C  204A                     movea.l    A0, A2
  782. 0000075E  A04A                     syscall    HNoPurge
  783. 00000760  223C 0000 0ED8           move.l     D1, 0xED8
  784. 00000766  2001                     move.l     D0, D1
  785. 00000768  A04C                     syscall    CompactMem
  786. 0000076A  B081                     cmp.l      D0, D1
  787. 0000076C  6C06                     bge        +0x8 /* 00000774 */
  788. 0000076E  2001                     move.l     D0, D1
  789. 00000770  A04D                     syscall    PurgeMem
  790. 00000772  6670                     bne        +0x72 /* 000007E4 */
  791. label00000774:
  792. 00000774  2052                     movea.l    A0, [A2]
  793. 00000776  5448                     addq.w     A0, 2
  794. 00000778  3A28 0006                move.w     D5, [A0 + 0x6]
  795. 0000077C  9A68 0002                sub.w      D5, [A0 + 0x2]
  796. 00000780  3C28 0004                move.w     D6, [A0 + 0x4]
  797. 00000784  9C50                     sub.w      D6, [A0]
  798. 00000786  486E FFF8                pea.l      [A6 - 0x8]
  799. 0000078A  2F17                     move.l     -[A7], [A7]
  800. 0000078C  2257                     movea.l    A1, [A7]
  801. 0000078E  22D8                     move.l     [A1]+, [A0]+
  802. 00000790  22D8                     move.l     [A1]+, [A0]+
  803. 00000792  9A7A 042E                sub.w      D5, [PC + 0x42E /* 00000BC2, value 0x160 */]
  804. 00000796  9C7A 042C                sub.w      D6, [PC + 0x42C /* 00000BC4, value 0xB0, cstring "" */]
  805. 0000079A  4445                     neg.w      D5
  806. 0000079C  4446                     neg.w      D6
  807. 0000079E  41EE FFF8                lea.l      A0, [A6 - 0x8]
  808. 000007A2  E245                     asr        D5.w, 1
  809. 000007A4  9A68 0002                sub.w      D5, [A0 + 0x2]
  810. 000007A8  DA7A 0402                add.w      D5, [PC + 0x402 /* 00000BAC, value 0x10, cstring "" */]
  811. 000007AC  3F05                     move.w     -[A7], D5
  812. 000007AE  E246                     asr        D6.w, 1
  813. 000007B0  9C50                     sub.w      D6, [A0]
  814. 000007B2  DC7A 03F6                add.w      D6, [PC + 0x3F6 /* 00000BAA, value 0x10, cstring "" */]
  815. 000007B6  3F06                     move.w     -[A7], D6
  816. 000007B8  A8A8                     syscall    OffsetRect
  817. 000007BA  487A 03EE                pea.l      [PC + 0x3EE /* 00000BAA, value 0x100010, cstring "" */]
  818. 000007BE  A8A3                     syscall    EraseRect
  819. 000007C0  A8F6                     syscall    DrawPicture
  820. 000007C2  204A                     movea.l    A0, A2
  821. 000007C4  A049                     syscall    HPurge
  822. label000007C6:
  823. 000007C6  2055                     movea.l    A0, [A5]
  824. 000007C8  2050                     movea.l    A0, [A0]
  825. 000007CA  4868 0010                pea.l      [A0 + 0x10]
  826. 000007CE  A87B                     syscall    ClipRect
  827. 000007D0  2053                     movea.l    A0, [A3]
  828. 000007D2  42A8 0010                clr.l      [A0 + 0x10]
  829. 000007D6  2F28 000C                move.l     -[A7], [A0 + 0xC]
  830. 000007DA  A958                     syscall    HideControl
  831. label000007DC:
  832. 000007DC  4CDF 0C78                movem.l    D3,D4,D5,D6,A2,A3, [A7]+
  833. 000007E0  4E5E                     unlink     A6
  834. 000007E2  4E75                     rts
  835. label000007E4:
  836. 000007E4  204A                     movea.l    A0, A2
  837. 000007E6  A049                     syscall    HPurge
  838. 000007E8  584F                     addq.w     A7, 4
  839. 000007EA  7004                     moveq.l    D0, 0x04
  840. label000007EC:
  841. 000007EC  6108                     bsr        +0xA /* 000007F6 */
  842. 000007EE  60D6                     bra        -0x28 /* 000007C6 */
  843. label000007F0:
  844. 000007F0  544F                     addq.w     A7, 2
  845. 000007F2  7000                     moveq.l    D0, 0x00
  846. 000007F4  60F6                     bra        -0x8 /* 000007EC */
  847. fn000007F6:
  848. 000007F6  3F00                     move.w     -[A7], D0
  849. 000007F8  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  850. 000007FC  A873                     syscall    SetPort
  851. 000007FE  487A 03AA                pea.l      [PC + 0x3AA /* 00000BAA, value 0x100010, cstring "" */]
  852. 00000802  A8A3                     syscall    EraseRect
  853. 00000804  4267                     clr.w      -[A7]
  854. 00000806  A887                     syscall    TextFont
  855. 00000808  301F                     move.w     D0, [A7]+
  856. 0000080A  612A                     bsr        +0x2C /* 00000836 */
  857. 0000080C  2250                     movea.l    A1, [A0]
  858. 0000080E  D3C0                     add.l      A1, D0
  859. 00000810  2F08                     move.l     -[A7], A0
  860. 00000812  A029                     syscall    HLock
  861. 00000814  7000                     moveq.l    D0, 0x00
  862. 00000816  1019                     move.b     D0, [A1]+
  863. 00000818  2F09                     move.l     -[A7], A1
  864. 0000081A  2F00                     move.l     -[A7], D0
  865. 0000081C  487A 0394                pea.l      [PC + 0x394 /* 00000BB2, value 0x300030 '0\00', cstring "" */]
  866. 00000820  4267                     clr.w      -[A7]
  867. 00000822  A9CE                     syscall    TETextBox/TextBox
  868. 00000824  205F                     movea.l    A0, [A7]+
  869. 00000826  A02A                     syscall    HUnlock
  870. 00000828  3F3C 0001                move.w     -[A7], 0x1
  871. 0000082C  A887                     syscall    TextFont
  872. 0000082E  4E75                     rts
  873. label00000830:
  874. 00000830  544F                     addq.w     A7, 2
  875. 00000832  7001                     moveq.l    D0, 0x01
  876. 00000834  60B6                     bra        -0x48 /* 000007EC */
  877. fn00000836:
  878. 00000836  3F00                     move.w     -[A7], D0
  879. 00000838  7000                     moveq.l    D0, 0x00
  880. 0000083A  612E                     bsr        +0x30 /* 0000086A */
  881. 0000083C  594F                     subq.w     A7, 4
  882. 0000083E  2F3C 5354 5223           move.l     -[A7], 0x53545223 /* 'STR#' */
  883. 00000844  3F00                     move.w     -[A7], D0
  884. 00000846  A9A0                     syscall    GetResource
  885. 00000848  2057                     movea.l    A0, [A7]
  886. 0000084A  A029                     syscall    HLock
  887. 0000084C  2050                     movea.l    A0, [A0]
  888. 0000084E  5448                     addq.w     A0, 2
  889. 00000850  7000                     moveq.l    D0, 0x00
  890. 00000852  322F 0004                move.w     D1, [A7 + 0x4]
  891. label00000856:
  892. 00000856  6708                     beq        +0xA /* 00000860 */
  893. 00000858  1018                     move.b     D0, [A0]+
  894. 0000085A  D0C0                     add.w      A0, D0
  895. 0000085C  5341                     subq.w     D1, 1
  896. 0000085E  60F6                     bra        -0x8 /* 00000856 */
  897. label00000860:
  898. 00000860  2008                     move.l     D0, A0
  899. 00000862  205F                     movea.l    A0, [A7]+
  900. 00000864  9090                     sub.l      D0, [A0]
  901. 00000866  544F                     addq.w     A7, 2
  902. 00000868  4E75                     rts
  903. fn0000086A:
  904. 0000086A  0040 C000                ori.w      D0, 0xC000
  905. 0000086E  322C 0018                move.w     D1, [A4 + 0x18]
  906. 00000872  4641                     not.w      D1
  907. 00000874  EB49                     lsl        D1.w, 5
  908. 00000876  8041                     or.w       D0, D1
  909. 00000878  4E75                     rts
  910. label0000087A:
  911. 0000087A  7002                     moveq.l    D0, 0x02
  912. 0000087C  6000 FF6E                bra        -0x90 /* 000007EC */
  913. label00000880:
  914. 00000880  2F3C 5445 5854           move.l     -[A7], 0x54455854 /* 'TEXT' */
  915. 00000886  3F04                     move.w     -[A7], D4
  916. 00000888  A81F                     syscall    Get1Resource
  917. 0000088A  201F                     move.l     D0, [A7]+
  918. 0000088C  671C                     beq        +0x1E /* 000008AA */
  919. 0000088E  2040                     movea.l    A0, D0
  920. 00000890  A025                     syscall    GetHandleSize
  921. 00000892  2F08                     move.l     -[A7], A0
  922. 00000894  2F10                     move.l     -[A7], [A0]
  923. 00000896  2F00                     move.l     -[A7], D0
  924. 00000898  487A 0310                pea.l      [PC + 0x310 /* 00000BAA, value 0x100010, cstring "" */]
  925. 0000089C  4267                     clr.w      -[A7]
  926. 0000089E  A029                     syscall    HLock
  927. 000008A0  A9CE                     syscall    TETextBox/TextBox
  928. 000008A2  205F                     movea.l    A0, [A7]+
  929. 000008A4  A02A                     syscall    HUnlock
  930. 000008A6  6000 FF1E                bra        -0xE0 /* 000007C6 */
  931. label000008AA:
  932. 000008AA  2055                     movea.l    A0, [A5]
  933. 000008AC  2050                     movea.l    A0, [A0]
  934. 000008AE  4868 0010                pea.l      [A0 + 0x10]
  935. 000008B2  A87B                     syscall    ClipRect
  936. 000008B4  594F                     subq.w     A7, 4
  937. 000008B6  2F3C 736E 6420           move.l     -[A7], 0x736E6420 /* 'snd ' */
  938. 000008BC  3F04                     move.w     -[A7], D4
  939. 000008BE  A81F                     syscall    Get1Resource
  940. 000008C0  201F                     move.l     D0, [A7]+
  941. 000008C2  67B6                     beq        -0x48 /* 0000087A */
  942. 000008C4  2053                     movea.l    A0, [A3]
  943. 000008C6  2140 0010                move.l     [A0 + 0x10], D0
  944. 000008CA  2F28 000C                move.l     -[A7], [A0 + 0xC]
  945. 000008CE  A957                     syscall    ShowControl
  946. 000008D0  487A 02D8                pea.l      [PC + 0x2D8 /* 00000BAA, value 0x100010, cstring "" */]
  947. 000008D4  A8A3                     syscall    EraseRect
  948. 000008D6  594F                     subq.w     A7, 4
  949. 000008D8  2F3C 4943 4F4E           move.l     -[A7], 0x49434F4E /* 'ICON' */
  950. 000008DE  3F3C BF95                move.w     -[A7], 0xBF95
  951. 000008E2  A9A0                     syscall    GetResource
  952. 000008E4  201F                     move.l     D0, [A7]+
  953. 000008E6  6708                     beq        +0xA /* 000008F0 */
  954. 000008E8  487A 02D0                pea.l      [PC + 0x2D0 /* 00000BBA, value 0x5400B0, cstring "" */]
  955. 000008EC  2F00                     move.l     -[A7], D0
  956. 000008EE  A94B                     syscall    PlotIcon
  957. label000008F0:
  958. 000008F0  6000 FEEA                bra        -0x114 /* 000007DC */
  959. fn000008F4:
  960. 000008F4  0C40 0003                cmpi.w     D0, 0x3
  961. 000008F8  6E1C                     bgt        +0x1E /* 00000916 */
  962. 000008FA  2053                     movea.l    A0, [A3]
  963. 000008FC  4A28 000A                tst.b      [A0 + 0xA]
  964. 00000900  6614                     bne        +0x16 /* 00000916 */
  965. 00000902  D040                     add.w      D0, D0
  966. 00000904  41FA 0012                lea.l      A0, [PC + 0x12 /* 00000918, value 0x80140, cstring "" */]
  967. 00000908  D0F0 0000                add.w      A0, [A0 + D0.w]
  968. 0000090C  4E90                     jsr        [A0]
  969. fn0000090E:
  970. 0000090E  6152                     bsr        +0x54 /* 00000962 */
  971. 00000910  A013                     syscall    FlushVol
  972. 00000912  4FEF 0040                lea.l      A7, [A7 + 0x40]
  973. label00000916:
  974. 00000916  4E75                     rts
  975. 00000918  0008 0140                ori.b      A0, 0x40 /* '@' */
  976. 0000091C  0058 01BE                ori.w      [A0]+, 0x1BE
  977. 00000920  6100 0136                bsr        +0x138 /* 00000A58 */
  978. 00000924  6000 01B0                bra        +0x1B2 /* 00000AD6 */
  979. fn00000928:
  980. 00000928  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  981. 0000092C  A873                     syscall    SetPort
  982. 0000092E  487A 027A                pea.l      [PC + 0x27A /* 00000BAA, value 0x100010, cstring "" */]
  983. 00000932  A928                     syscall    InvalRect
  984. 00000934  487A 0290                pea.l      [PC + 0x290 /* 00000BC6, value 0xE8000C, cstring "" */]
  985. 00000938  A928                     syscall    InvalRect
  986. 0000093A  487A 0292                pea.l      [PC + 0x292 /* 00000BCE, value 0xEA00FA, cstring "" */]
  987. 0000093E  A928                     syscall    InvalRect
  988. 00000940  2053                     movea.l    A0, [A3]
  989. 00000942  2068 000C                movea.l    A0, [A0 + 0xC]
  990. 00000946  2050                     movea.l    A0, [A0]
  991. 00000948  4868 0008                pea.l      [A0 + 0x8]
  992. 0000094C  A928                     syscall    InvalRect
  993. 0000094E  4E75                     rts
  994. fn00000950:
  995. 00000950  554F                     subq.w     A7, 2
  996. 00000952  2053                     movea.l    A0, [A3]
  997. 00000954  2F28 0002                move.l     -[A7], [A0 + 0x2]
  998. 00000958  A960                     syscall    GetControlValue/GetCtlValue
  999. 0000095A  301F                     move.w     D0, [A7]+
  1000. 0000095C  6602                     bne        +0x4 /* 00000960 */
  1001. 0000095E  7001                     moveq.l    D0, 0x01
  1002. label00000960:
  1003. 00000960  4E75                     rts
  1004. fn00000962:
  1005. 00000962  225F                     movea.l    A1, [A7]+
  1006. 00000964  701F                     moveq.l    D0, 0x1F
  1007. label00000966:
  1008. 00000966  4267                     clr.w      -[A7]
  1009. 00000968  51C8 FFFC                dbf        D0, -0x6 /* 00000966 */
  1010. 0000096C  204F                     movea.l    A0, A7
  1011. 0000096E  4ED1                     jmp        [A1]
  1012. 00000970  4AB8 0960                tst.l      [0x00000960 /* ScrapSize/ScrapInfo/ScrapVars */]
  1013. 00000974  67EA                     beq        -0x14 /* 00000960 */
  1014. 00000976  48E7 1F20                movem.l    -[A7], D3,D4,D5,D6,D7,A2
  1015. 0000097A  2053                     movea.l    A0, [A3]
  1016. 0000097C  0C68 0100 0008           cmpi.w     [A0 + 0x8], 0x100
  1017. 00000982  6C76                     bge        +0x78 /* 000009FA */
  1018. 00000984  6100 FABC                bsr        -0x542 /* 00000442 */
  1019. 00000988  6770                     beq        +0x72 /* 000009FA */
  1020. 0000098A  554F                     subq.w     A7, 2
  1021. 0000098C  A994                     syscall    CurResFile
  1022. 0000098E  2053                     movea.l    A0, [A3]
  1023. 00000990  3F10                     move.w     -[A7], [A0]
  1024. 00000992  A998                     syscall    UseResFile
  1025. 00000994  7000                     moveq.l    D0, 0x00
  1026. 00000996  7E00                     moveq.l    D7, 0x00
  1027. 00000998  6100 FB88                bsr        -0x476 /* 00000522 */
  1028. 0000099C  3A00                     move.w     D5, D0
  1029. 0000099E  6714                     beq        +0x16 /* 000009B4 */
  1030. 000009A0  7C00                     moveq.l    D6, 0x00
  1031. label000009A2:
  1032. 000009A2  5246                     addq.w     D6, 1
  1033. 000009A4  7000                     moveq.l    D0, 0x00
  1034. 000009A6  3206                     move.w     D1, D6
  1035. 000009A8  6100 FB24                bsr        -0x4DA /* 000004CE */
  1036. 000009AC  2600                     move.l     D3, D0
  1037. 000009AE  6166                     bsr        +0x68 /* 00000A16 */
  1038. 000009B0  BC45                     cmp.w      D6, D5
  1039. 000009B2  6DEE                     blt        -0x10 /* 000009A2 */
  1040. label000009B4:
  1041. 000009B4  4A47                     tst.w      D7
  1042. 000009B6  6612                     bne        +0x14 /* 000009CA */
  1043. 000009B8  2053                     movea.l    A0, [A3]
  1044. 000009BA  5368 0008                subq.w     [A0 + 0x8], 1
  1045. 000009BE  6190                     bsr        -0x6E /* 00000950 */
  1046. 000009C0  6100 FAEA                bsr        -0x514 /* 000004AC */
  1047. 000009C4  A998                     syscall    UseResFile
  1048. 000009C6  6138                     bsr        +0x3A /* 00000A00 */
  1049. 000009C8  602A                     bra        +0x2C /* 000009F4 */
  1050. label000009CA:
  1051. 000009CA  2053                     movea.l    A0, [A3]
  1052. 000009CC  3F10                     move.w     -[A7], [A0]
  1053. 000009CE  A999                     syscall    UpdateResFile
  1054. 000009D0  A998                     syscall    UseResFile
  1055. 000009D2  2053                     movea.l    A0, [A3]
  1056. 000009D4  2F28 0002                move.l     -[A7], [A0 + 0x2]
  1057. 000009D8  3F28 0008                move.w     -[A7], [A0 + 0x8]
  1058. 000009DC  A965                     syscall    SetControlMaximum/SetMaxCtl
  1059. 000009DE  2053                     movea.l    A0, [A3]
  1060. 000009E0  0C68 0002 0008           cmpi.w     [A0 + 0x8], 0x2
  1061. 000009E6  6D08                     blt        +0xA /* 000009F0 */
  1062. 000009E8  2F28 0002                move.l     -[A7], [A0 + 0x2]
  1063. 000009EC  4267                     clr.w      -[A7]
  1064. 000009EE  A95D                     syscall    HiliteControl
  1065. label000009F0:
  1066. 000009F0  6100 FF36                bsr        -0xC8 /* 00000928 */
  1067. label000009F4:
  1068. 000009F4  4CDF 04F8                movem.l    D3,D4,D5,D6,D7,A2, [A7]+
  1069. 000009F8  4E75                     rts
  1070. label000009FA:
  1071. 000009FA  7006                     moveq.l    D0, 0x06
  1072. 000009FC  6104                     bsr        +0x6 /* 00000A02 */
  1073. 000009FE  60F4                     bra        -0xA /* 000009F4 */
  1074. fn00000A00:
  1075. 00000A00  7005                     moveq.l    D0, 0x05
  1076. fn00000A02:
  1077. 00000A02  6100 FDF2                bsr        -0x20C /* 000007F6 */
  1078. 00000A06  3F3C 0006                move.w     -[A7], 0x6
  1079. 00000A0A  A9C8                     syscall    SysBeep
  1080. 00000A0C  307C 00F0                movea.w    A0, 0xF0
  1081. 00000A10  A03B                     syscall    Delay
  1082. 00000A12  6000 FCEE                bra        -0x310 /* 00000702 */
  1083. fn00000A16:
  1084. 00000A16  700C                     moveq.l    D0, 0x0C
  1085. 00000A18  A122                     syscall    NewHandle, flags=1
  1086. 00000A1A  2448                     movea.l    A2, A0
  1087. 00000A1C  594F                     subq.w     A7, 4
  1088. 00000A1E  2F0A                     move.l     -[A7], A2
  1089. 00000A20  2F03                     move.l     -[A7], D3
  1090. 00000A22  4878 09FA                push.l     0x9FA
  1091. 00000A26  A9FD                     syscall    GetScrap
  1092. 00000A28  4A9F                     tst.l      [A7]+
  1093. 00000A2A  6D26                     blt        +0x28 /* 00000A52 */
  1094. 00000A2C  2F0A                     move.l     -[A7], A2
  1095. 00000A2E  2F03                     move.l     -[A7], D3
  1096. 00000A30  3F04                     move.w     -[A7], D4
  1097. 00000A32  487A 016C                pea.l      [PC + 0x16C /* 00000BA0, value 0xD0, cstring "" */]
  1098. 00000A36  A9AB                     syscall    AddResource
  1099. 00000A38  4A78 0A60                tst.w      [0x00000A60 /* ResErr */]
  1100. 00000A3C  660E                     bne        +0x10 /* 00000A4C */
  1101. 00000A3E  5247                     addq.w     D7, 1
  1102. 00000A40  2F0A                     move.l     -[A7], A2
  1103. 00000A42  3F3C 0022                move.w     -[A7], 0x22 /* '\"' */
  1104. 00000A46  A9A7                     syscall    SetResAttrs
  1105. 00000A48  2F0A                     move.l     -[A7], A2
  1106. 00000A4A  A9B0                     syscall    WriteResource
  1107. label00000A4C:
  1108. 00000A4C  204A                     movea.l    A0, A2
  1109. 00000A4E  A049                     syscall    HPurge
  1110. 00000A50  4E75                     rts
  1111. label00000A52:
  1112. 00000A52  204A                     movea.l    A0, A2
  1113. 00000A54  A023                     syscall    DisposHandle/DisposeHandle
  1114. 00000A56  4E75                     rts
  1115. fn00000A58:
  1116. 00000A58  48E7 1E00                movem.l    -[A7], D3,D4,D5,D6
  1117. 00000A5C  554F                     subq.w     A7, 2
  1118. 00000A5E  A994                     syscall    CurResFile
  1119. 00000A60  2053                     movea.l    A0, [A3]
  1120. 00000A62  3F10                     move.w     -[A7], [A0]
  1121. 00000A64  A998                     syscall    UseResFile
  1122. 00000A66  2053                     movea.l    A0, [A3]
  1123. 00000A68  4A68 0008                tst.w      [A0 + 0x8]
  1124. 00000A6C  672E                     beq        +0x30 /* 00000A9C */
  1125. 00000A6E  594F                     subq.w     A7, 4
  1126. 00000A70  A9FC                     syscall    ZeroScrap
  1127. 00000A72  584F                     addq.w     A7, 4
  1128. 00000A74  612E                     bsr        +0x30 /* 00000AA4 */
  1129. 00000A76  4A44                     tst.w      D4
  1130. 00000A78  6722                     beq        +0x24 /* 00000A9C */
  1131. label00000A7A:
  1132. 00000A7A  6140                     bsr        +0x42 /* 00000ABC */
  1133. 00000A7C  671A                     beq        +0x1C /* 00000A98 */
  1134. 00000A7E  2040                     movea.l    A0, D0
  1135. 00000A80  2F00                     move.l     -[A7], D0
  1136. 00000A82  A025                     syscall    GetHandleSize
  1137. 00000A84  594F                     subq.w     A7, 4
  1138. 00000A86  2F00                     move.l     -[A7], D0
  1139. 00000A88  2F06                     move.l     -[A7], D6
  1140. 00000A8A  2F10                     move.l     -[A7], [A0]
  1141. 00000A8C  A029                     syscall    HLock
  1142. 00000A8E  A9FE                     syscall    PutScrap
  1143. 00000A90  584F                     addq.w     A7, 4
  1144. 00000A92  205F                     movea.l    A0, [A7]+
  1145. 00000A94  A02A                     syscall    HUnlock
  1146. 00000A96  A049                     syscall    HPurge
  1147. label00000A98:
  1148. 00000A98  BA44                     cmp.w      D5, D4
  1149. 00000A9A  6DDE                     blt        -0x20 /* 00000A7A */
  1150. label00000A9C:
  1151. 00000A9C  A998                     syscall    UseResFile
  1152. 00000A9E  4CDF 0078                movem.l    D3,D4,D5,D6, [A7]+
  1153. 00000AA2  4E75                     rts
  1154. fn00000AA4:
  1155. 00000AA4  6100 FEAA                bsr        -0x154 /* 00000950 */
  1156. 00000AA8  3F00                     move.w     -[A7], D0
  1157. 00000AAA  6100 F960                bsr        -0x69E /* 0000040C */
  1158. 00000AAE  3600                     move.w     D3, D0
  1159. 00000AB0  301F                     move.w     D0, [A7]+
  1160. 00000AB2  6100 FA6E                bsr        -0x590 /* 00000522 */
  1161. 00000AB6  3800                     move.w     D4, D0
  1162. 00000AB8  7A00                     moveq.l    D5, 0x00
  1163. 00000ABA  4E75                     rts
  1164. fn00000ABC:
  1165. 00000ABC  5245                     addq.w     D5, 1
  1166. fn00000ABE:
  1167. 00000ABE  6100 FE90                bsr        -0x16E /* 00000950 */
  1168. 00000AC2  3205                     move.w     D1, D5
  1169. 00000AC4  6100 FA08                bsr        -0x5F6 /* 000004CE */
  1170. 00000AC8  2C00                     move.l     D6, D0
  1171. 00000ACA  594F                     subq.w     A7, 4
  1172. 00000ACC  2F06                     move.l     -[A7], D6
  1173. 00000ACE  3F03                     move.w     -[A7], D3
  1174. 00000AD0  A81F                     syscall    Get1Resource
  1175. 00000AD2  201F                     move.l     D0, [A7]+
  1176. 00000AD4  4E75                     rts
  1177. label00000AD6:
  1178. 00000AD6  2053                     movea.l    A0, [A3]
  1179. 00000AD8  4A28 000B                tst.b      [A0 + 0xB]
  1180. 00000ADC  6600 FF22                bne        -0xDC /* 00000A00 */
  1181. 00000AE0  48E7 1E00                movem.l    -[A7], D3,D4,D5,D6
  1182. 00000AE4  554F                     subq.w     A7, 2
  1183. 00000AE6  A994                     syscall    CurResFile
  1184. 00000AE8  2053                     movea.l    A0, [A3]
  1185. 00000AEA  3F10                     move.w     -[A7], [A0]
  1186. 00000AEC  3F17                     move.w     -[A7], [A7]
  1187. 00000AEE  A998                     syscall    UseResFile
  1188. 00000AF0  2053                     movea.l    A0, [A3]
  1189. 00000AF2  4A68 0008                tst.w      [A0 + 0x8]
  1190. 00000AF6  6750                     beq        +0x52 /* 00000B48 */
  1191. 00000AF8  61AA                     bsr        -0x54 /* 00000AA4 */
  1192. 00000AFA  4A44                     tst.w      D4
  1193. 00000AFC  674A                     beq        +0x4C /* 00000B48 */
  1194. label00000AFE:
  1195. 00000AFE  4227                     clr.b      -[A7]
  1196. 00000B00  A99B                     syscall    SetResLoad
  1197. 00000B02  7A01                     moveq.l    D5, 0x01
  1198. 00000B04  61B8                     bsr        -0x46 /* 00000ABE */
  1199. 00000B06  6704                     beq        +0x6 /* 00000B0C */
  1200. 00000B08  2F00                     move.l     -[A7], D0
  1201. 00000B0A  A9AD                     syscall    RemoveResource/RmveResource
  1202. label00000B0C:
  1203. 00000B0C  5344                     subq.w     D4, 1
  1204. 00000B0E  6EEE                     bgt        -0x10 /* 00000AFE */
  1205. 00000B10  50E7                     st         -[A7]
  1206. 00000B12  A99B                     syscall    SetResLoad
  1207. 00000B14  6100 FE3A                bsr        -0x1C4 /* 00000950 */
  1208. 00000B18  6100 F992                bsr        -0x66C /* 000004AC */
  1209. 00000B1C  2053                     movea.l    A0, [A3]
  1210. 00000B1E  5368 0008                subq.w     [A0 + 0x8], 1
  1211. 00000B22  0C68 0002 0008           cmpi.w     [A0 + 0x8], 0x2
  1212. 00000B28  6C0A                     bge        +0xC /* 00000B34 */
  1213. 00000B2A  2F28 0002                move.l     -[A7], [A0 + 0x2]
  1214. 00000B2E  3F3C 00FF                move.w     -[A7], 0xFF
  1215. 00000B32  A95D                     syscall    HiliteControl
  1216. label00000B34:
  1217. 00000B34  2053                     movea.l    A0, [A3]
  1218. 00000B36  3028 0008                move.w     D0, [A0 + 0x8]
  1219. 00000B3A  6708                     beq        +0xA /* 00000B44 */
  1220. 00000B3C  2F28 0002                move.l     -[A7], [A0 + 0x2]
  1221. 00000B40  3F00                     move.w     -[A7], D0
  1222. 00000B42  A965                     syscall    SetControlMaximum/SetMaxCtl
  1223. label00000B44:
  1224. 00000B44  6100 FDE2                bsr        -0x21C /* 00000928 */
  1225. label00000B48:
  1226. 00000B48  A999                     syscall    UpdateResFile
  1227. 00000B4A  A998                     syscall    UseResFile
  1228. 00000B4C  4CDF 0078                movem.l    D3,D4,D5,D6, [A7]+
  1229. 00000B50  4E75                     rts
  1230. 00000B52  48E7 1810                movem.l    -[A7], D3,D4,A3
  1231. 00000B56  382F 0010                move.w     D4, [A7 + 0x10]
  1232. 00000B5A  673A                     beq        +0x3C /* 00000B96 */
  1233. 00000B5C  7601                     moveq.l    D3, 0x01
  1234. 00000B5E  0804 0000                btst.b     D4, 0x0
  1235. 00000B62  6602                     bne        +0x4 /* 00000B66 */
  1236. 00000B64  4443                     neg.w      D3
  1237. label00000B66:
  1238. 00000B66  266C 0014                movea.l    A3, [A4 + 0x14]
  1239. 00000B6A  2053                     movea.l    A0, [A3]
  1240. 00000B6C  6100 FDE2                bsr        -0x21C /* 00000950 */
  1241. 00000B70  3800                     move.w     D4, D0
  1242. 00000B72  D043                     add.w      D0, D3
  1243. 00000B74  6720                     beq        +0x22 /* 00000B96 */
  1244. 00000B76  2053                     movea.l    A0, [A3]
  1245. 00000B78  B068 0008                cmp.w      D0, [A0 + 0x8]
  1246. 00000B7C  6E18                     bgt        +0x1A /* 00000B96 */
  1247. 00000B7E  554F                     subq.w     A7, 2
  1248. 00000B80  2228 0002                move.l     D1, [A0 + 0x2]
  1249. 00000B84  2F01                     move.l     -[A7], D1
  1250. 00000B86  2F01                     move.l     -[A7], D1
  1251. 00000B88  3F00                     move.w     -[A7], D0
  1252. 00000B8A  A963                     syscall    SetControlValue/SetCtlValue
  1253. 00000B8C  A960                     syscall    GetControlValue/GetCtlValue
  1254. 00000B8E  B85F                     cmp.w      D4, [A7]+
  1255. 00000B90  6704                     beq        +0x6 /* 00000B96 */
  1256. 00000B92  6100 FB6E                bsr        -0x490 /* 00000702 */
  1257. label00000B96:
  1258. 00000B96  4CDF 0818                movem.l    D3,D4,A3, [A7]+
  1259. 00000B9A  205F                     movea.l    A0, [A7]+
  1260. 00000B9C  5C4F                     addq.w     A7, 6
  1261. 00000B9E  4ED0                     jmp        [A0]
  1262. 00000BA0  0000 00D0                ori.b      D0, 0xD0
  1263. 00000BA4  000C 00E0                ori.b      A4, 0xE0
  1264. 00000BA8  0174 0010                bchg       [A4 + D0.w + 0x10], D0
  1265. 00000BAC  0010 00C0                ori.b      [A0], 0xC0
  1266. 00000BB0  0170 0030                bchg       [A0 + D0.w + 0x30], D0
  1267. 00000BB4  0030 00A0 0150           ori.b      [A0], 0xA0
  1268. 00000BBA  0054 00B0                ori.w      [A4], 0xB0
  1269. 00000BBE  0074 00D0 0160 00B0      ori.w      [A4 + 0xB0], 0xD0
  1270. 00000BC6  00E8                     .incomplete
  1271. 00000BC8  000C 00F8                ori.b      A4, 0xF8
  1272. 00000BCC  0048 00EA                ori.w      A0, 0xEA
  1273. 00000BD0  00FA                     .incomplete
  1274. 00000BD2  00F8                     .incomplete
  1275. 00000BD4  0174 00D0                bchg       [A4 + D0.w - 0x48], D0
  1276. 00000BD8  0010 00F8                ori.b      [A0], 0xF8
  1277. 00000BDC  0174 0320 2F20           bchg       [A4 + 0x2F20 + D0 * 2], D0
  1278. 00000BE2  0004 0000                ori.b      D4, 0x0
  1279. 00000BE6  0000 0000                ori.b      D0, 0x0
  1280. 00000BEA  0000 022C                ori.b      D0, 0x2C /* ',' */
  1281. 00000BEE  2000                     move.l     D0, D0
  1282. fn00000BF0:
  1283. 00000BF0  205F                     movea.l    A0, [A7]+
  1284. 00000BF2  341F                     move.w     D2, [A7]+
  1285. 00000BF4  221F                     move.l     D1, [A7]+
  1286. 00000BF6  2F08                     move.l     -[A7], A0
  1287. 00000BF8  594F                     subq.w     A7, 4
  1288. 00000BFA  2F01                     move.l     -[A7], D1
  1289. 00000BFC  3F02                     move.w     -[A7], D2
  1290. 00000BFE  A9A0                     syscall    GetResource
  1291. 00000C00  201F                     move.l     D0, [A7]+
  1292. 00000C02  674A                     beq        +0x4C /* 00000C4E */
  1293. 00000C04  2040                     movea.l    A0, D0
  1294. 00000C06  2050                     movea.l    A0, [A0]
  1295. 00000C08  2278 09DE                movea.l    A1, [0x000009DE /* WMgrPort */]
  1296. 00000C0C  2229 0014                move.l     D1, [A1 + 0x14]
  1297. 00000C10  92A9 0010                sub.l      D1, [A1 + 0x10]
  1298. 00000C14  2028 0004                move.l     D0, [A0 + 0x4]
  1299. 00000C18  9090                     sub.l      D0, [A0]
  1300. 00000C1A  3401                     move.w     D2, D1
  1301. 00000C1C  9440                     sub.w      D2, D0
  1302. 00000C1E  E24A                     lsr        D2.w, 1
  1303. 00000C20  4241                     clr.w      D1
  1304. 00000C22  4841                     swap.w     D1
  1305. 00000C24  4840                     swap.w     D0
  1306. 00000C26  9240                     sub.w      D1, D0
  1307. 00000C28  3038 0BAA                move.w     D0, [0x00000BAA /* MBarHeight */]
  1308. 00000C2C  9240                     sub.w      D1, D0
  1309. 00000C2E  9240                     sub.w      D1, D0
  1310. 00000C30  82FC 0004                divu.w     D1, 0x4
  1311. 00000C34  2278 09DE                movea.l    A1, [0x000009DE /* WMgrPort */]
  1312. 00000C38  D269 0010                add.w      D1, [A1 + 0x10]
  1313. 00000C3C  D240                     add.w      D1, D0
  1314. 00000C3E  D240                     add.w      D1, D0
  1315. 00000C40  4841                     swap.w     D1
  1316. 00000C42  3202                     move.w     D1, D2
  1317. 00000C44  9290                     sub.l      D1, [A0]
  1318. 00000C46  D390                     add.l      [A0], D1
  1319. 00000C48  D3A8 0004                add.l      [A0 + 0x4], D1
  1320. 00000C4C  2010                     move.l     D0, [A0]
  1321. label00000C4E:
  1322. 00000C4E  4E75                     rts
  1323. fn00000C50:
  1324. 00000C50  4E56 0000                link       A6, 0
  1325. 00000C54  594F                     subq.w     A7, 4
  1326. 00000C56  2F2E 000A                move.l     -[A7], [A6 + 0xA]
  1327. 00000C5A  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  1328. 00000C5E  A9A0                     syscall    GetResource
  1329. 00000C60  201F                     move.l     D0, [A7]+
  1330. 00000C62  673C                     beq        +0x3E /* 00000CA0 */
  1331. 00000C64  2040                     movea.l    A0, D0
  1332. 00000C66  3238 0BAA                move.w     D1, [0x00000BAA /* MBarHeight */]
  1333. 00000C6A  2050                     movea.l    A0, [A0]
  1334. 00000C6C  2F28 0004                move.l     -[A7], [A0 + 0x4]
  1335. 00000C70  2F10                     move.l     -[A7], [A0]
  1336. 00000C72  3F57 0004                move.w     [A7 + 0x4], [A7]
  1337. 00000C76  9357                     sub.w      [A7], D1
  1338. 00000C78  2F0F                     move.l     -[A7], A7
  1339. 00000C7A  2F3C 0004 0004           move.l     -[A7], 0x40004
  1340. 00000C80  A8A9                     syscall    InsetRect
  1341. 00000C82  554F                     subq.w     A7, 2
  1342. 00000C84  486F 0002                pea.l      [A7 + 0x2]
  1343. 00000C88  2F38 09EE                move.l     -[A7], [0x000009EE /* GrayRgn */]
  1344. 00000C8C  A8E9                     syscall    RectInRgn
  1345. 00000C8E  4A1F                     tst.b      [A7]+
  1346. 00000C90  504F                     addq.w     A7, 8
  1347. 00000C92  660C                     bne        +0xE /* 00000CA0 */
  1348. 00000C94  2F2E 000A                move.l     -[A7], [A6 + 0xA]
  1349. 00000C98  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  1350. 00000C9C  6100 FF52                bsr        -0xAC /* 00000BF0 */
  1351. label00000CA0:
  1352. 00000CA0  4E5E                     unlink     A6
  1353. 00000CA2  205F                     movea.l    A0, [A7]+
  1354. 00000CA4  5C4F                     addq.w     A7, 6
  1355. 00000CA6  4ED0                     jmp        [A0]
  1356. fn00000CA8:
  1357. 00000CA8  205F                     movea.l    A0, [A7]+
  1358. 00000CAA  2F3C 5749 4E44           move.l     -[A7], 0x57494E44 /* 'WIND' */
  1359. 00000CB0  7000                     moveq.l    D0, 0x00
  1360. 00000CB2  6100 FBB6                bsr        -0x448 /* 0000086A */
  1361. 00000CB6  3F00                     move.w     -[A7], D0
  1362. 00000CB8  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  1363. 00000CBC  2F08                     move.l     -[A7], A0
  1364. 00000CBE  4E56 0000                link       A6, 0
  1365. 00000CC2  6100 FC8C                bsr        -0x372 /* 00000950 */
  1366. 00000CC6  3200                     move.w     D1, D0
  1367. 00000CC8  594F                     subq.w     A7, 4
  1368. 00000CCA  2F2E 000E                move.l     -[A7], [A6 + 0xE]
  1369. 00000CCE  3F2E 000C                move.w     -[A7], [A6 + 0xC]
  1370. 00000CD2  A9A0                     syscall    GetResource
  1371. 00000CD4  201F                     move.l     D0, [A7]+
  1372. 00000CD6  6754                     beq        +0x56 /* 00000D2C */
  1373. 00000CD8  3F01                     move.w     -[A7], D1
  1374. 00000CDA  206E 0008                movea.l    A0, [A6 + 0x8]
  1375. 00000CDE  2F28 0014                move.l     -[A7], [A0 + 0x14]
  1376. 00000CE2  2F28 0010                move.l     -[A7], [A0 + 0x10]
  1377. 00000CE6  2F00                     move.l     -[A7], D0
  1378. 00000CE8  486F 0004                pea.l      [A7 + 0x4]
  1379. 00000CEC  4A68 0006                tst.w      [A0 + 0x6]
  1380. 00000CF0  6B06                     bmi        +0x8 /* 00000CF8 */
  1381. 00000CF2  2028 0008                move.l     D0, [A0 + 0x8]
  1382. 00000CF6  600A                     bra        +0xC /* 00000D02 */
  1383. label00000CF8:
  1384. 00000CF8  2068 0002                movea.l    A0, [A0 + 0x2]
  1385. 00000CFC  2050                     movea.l    A0, [A0]
  1386. 00000CFE  2028 0006                move.l     D0, [A0 + 0x6]
  1387. label00000D02:
  1388. 00000D02  4440                     neg.w      D0
  1389. 00000D04  3F00                     move.w     -[A7], D0
  1390. 00000D06  4840                     swap.w     D0
  1391. 00000D08  4440                     neg.w      D0
  1392. 00000D0A  3F00                     move.w     -[A7], D0
  1393. 00000D0C  A8A8                     syscall    OffsetRect
  1394. 00000D0E  225F                     movea.l    A1, [A7]+
  1395. 00000D10  2049                     movea.l    A0, A1
  1396. 00000D12  A04A                     syscall    HNoPurge
  1397. 00000D14  2050                     movea.l    A0, [A0]
  1398. 00000D16  209F                     move.l     [A0], [A7]+
  1399. 00000D18  215F 0004                move.l     [A0 + 0x4], [A7]+
  1400. 00000D1C  315F 0010                move.w     [A0 + 0x10], [A7]+
  1401. 00000D20  2F09                     move.l     -[A7], A1
  1402. 00000D22  A9AA                     syscall    ChangedResource
  1403. 00000D24  2F09                     move.l     -[A7], A1
  1404. 00000D26  A9B0                     syscall    WriteResource
  1405. 00000D28  2049                     movea.l    A0, A1
  1406. 00000D2A  A049                     syscall    HPurge
  1407. label00000D2C:
  1408. 00000D2C  4E5E                     unlink     A6
  1409. 00000D2E  205F                     movea.l    A0, [A7]+
  1410. 00000D30  4FEF 000A                lea.l      A7, [A7 + 0xA]
  1411. 00000D34  4ED0                     jmp        [A0]
  1412. fn00000D36:
  1413. 00000D36  4E56 FEEC                link       A6, -0x0114
  1414. 00000D3A  554F                     subq.w     A7, 2
  1415. 00000D3C  303C 0003                move.w     D0, 0x3
  1416. 00000D40  A830                     syscall    Pack14
  1417. 00000D42  4A1F                     tst.b      [A7]+
  1418. 00000D44  6700 00AC                beq        +0xAE /* 00000DF2 */
  1419. 00000D48  266C 0014                movea.l    A3, [A4 + 0x14]
  1420. 00000D4C  2053                     movea.l    A0, [A3]
  1421. 00000D4E  2068 000C                movea.l    A0, [A0 + 0xC]
  1422. 00000D52  2050                     movea.l    A0, [A0]
  1423. 00000D54  4A28 0010                tst.b      [A0 + 0x10]
  1424. 00000D58  6700 0098                beq        +0x9A /* 00000DF2 */
  1425. 00000D5C  41E8 0008                lea.l      A0, [A0 + 0x8]
  1426. 00000D60  43EE FEF4                lea.l      A1, [A6 - 0x10C]
  1427. 00000D64  22D8                     move.l     [A1]+, [A0]+
  1428. 00000D66  2290                     move.l     [A1], [A0]
  1429. 00000D68  2F2C 001E                move.l     -[A7], [A4 + 0x1E]
  1430. 00000D6C  A873                     syscall    SetPort
  1431. 00000D6E  486E FEEC                pea.l      [A6 - 0x114]
  1432. 00000D72  A972                     syscall    GetMouse
  1433. 00000D74  554F                     subq.w     A7, 2
  1434. 00000D76  2F2E FEEC                move.l     -[A7], [A6 - 0x114]
  1435. 00000D7A  486E FEF4                pea.l      [A6 - 0x10C]
  1436. 00000D7E  A8AD                     syscall    PtInRect
  1437. 00000D80  4A1F                     tst.b      [A7]+
  1438. 00000D82  676E                     beq        +0x70 /* 00000DF2 */
  1439. 00000D84  266C 0014                movea.l    A3, [A4 + 0x14]
  1440. 00000D88  2053                     movea.l    A0, [A3]
  1441. 00000D8A  4A28 0014                tst.b      [A0 + 0x14]
  1442. 00000D8E  666C                     bne        +0x6E /* 00000DFC */
  1443. 00000D90  41EE FEFC                lea.l      A0, [A6 - 0x104]
  1444. 00000D94  30BC 0003                move.w     [A0], 0x3
  1445. 00000D98  7001                     moveq.l    D0, 0x01
  1446. 00000D9A  6100 FACE                bsr        -0x530 /* 0000086A */
  1447. 00000D9E  3140 0002                move.w     [A0 + 0x2], D0
  1448. 00000DA2  317C 0005 0004           move.w     [A0 + 0x4], 0x5
  1449. 00000DA8  486E FEF4                pea.l      [A6 - 0x10C]
  1450. 00000DAC  A870                     syscall    LocalToGlobal
  1451. 00000DAE  486E FEF8                pea.l      [A6 - 0x108]
  1452. 00000DB2  A870                     syscall    LocalToGlobal
  1453. 00000DB4  202E FEF8                move.l     D0, [A6 - 0x108]
  1454. 00000DB8  0440 000A                subi.w     D0, 0xA /* '\n' */
  1455. 00000DBC  4840                     swap.w     D0
  1456. 00000DBE  0440 000A                subi.w     D0, 0xA /* '\n' */
  1457. 00000DC2  4840                     swap.w     D0
  1458. 00000DC4  2D40 FEF0                move.l     [A6 - 0x110], D0
  1459. 00000DC8  554F                     subq.w     A7, 2
  1460. 00000DCA  486E FEFC                pea.l      [A6 - 0x104]
  1461. 00000DCE  2F2E FEF0                move.l     -[A7], [A6 - 0x110]
  1462. 00000DD2  486E FEF4                pea.l      [A6 - 0x10C]
  1463. 00000DD6  42A7                     clr.l      -[A7]
  1464. 00000DD8  42A7                     clr.l      -[A7]
  1465. 00000DDA  4267                     clr.w      -[A7]
  1466. 00000DDC  303C 0B01                move.w     D0, 0xB01
  1467. 00000DE0  A830                     syscall    Pack14
  1468. 00000DE2  4A5F                     tst.w      [A7]+
  1469. 00000DE4  660C                     bne        +0xE /* 00000DF2 */
  1470. 00000DE6  266C 0014                movea.l    A3, [A4 + 0x14]
  1471. 00000DEA  2053                     movea.l    A0, [A3]
  1472. 00000DEC  50E8 0014                st         [A0 + 0x14]
  1473. 00000DF0  600A                     bra        +0xC /* 00000DFC */
  1474. label00000DF2:
  1475. 00000DF2  266C 0014                movea.l    A3, [A4 + 0x14]
  1476. 00000DF6  2053                     movea.l    A0, [A3]
  1477. 00000DF8  4228 0014                clr.b      [A0 + 0x14]
  1478. label00000DFC:
  1479. 00000DFC  4E5E                     unlink     A6
  1480. 00000DFE  4E75                     rts
  1481.